www.gusucode.com > 深度学习(asp)网址导航 v4.0.1 > 深度学习(asp)网址导航 v4.0.1\code\admin\siteConfig\eWebEditor_Config_Update.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../../" '相对当前应用程序根的位置 %> <!-- #include file ="../include/checkPurview.asp"--> <!-- #include file="../include/Function.Manage.Config.asp"--> <% DBpath = "../include/eWebEditor/db/#ewebeditor.mdb" '数据库文件的位置 ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBPath) On Error Resume Next '启用错误处理程序 set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnStr '===================== If Err Then err.Clear Set Conn = Nothing Response.Write "<p> </p><p align='center'>数据库连接出错,请检查链接路径和数据库名称!</p>" Response.End End If '====================== On Error GoTo 0 '禁用错误处理程序 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>网站配置修改</title> <link rel="stylesheet" type="text/css" href="../themes/base.css"/> <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" /> <script language="javascript"> function form1_onsubmit() { if (document.form1.S_BaseHref.value=="") { window.alert("请输入站点的基路径"); return false; } } </script> </head> <body id="bodyBg1"> <br /> <a href="eWebEditor_Config_Update.asp">网站基路径</a> <hr class="Nav-hr" /> <br /> <dl class="manageContent"> <dt>网站基本路径管理</dt> <dd> <br /> <% if (Request.Form("S_BaseHref") <> "") then S_BaseHref=trim(Request.Form("S_BaseHref") ) sql="update eWebEditor_Style set S_BaseHref='"&S_BaseHref&"' " conn.execute(sql) Response.Write("<p align='center'>["& S_BaseHref &"]网站基路径修改成功</p>") else Sql="Select S_BaseHref from eWebEditor_Style" Set RsSiteConfig=conn.execute(sql) %> <form id="form1" name="form1" method="post" action="eWebEditor_Config_Update.asp" onsubmit="return form1_onsubmit()"> <table width="80%" border="0" align="center" class="tableBoderForm"> <tr> <td width="100">网站名称:</td> <td><input name="S_BaseHref" type="text" id="S_BaseHref" value="<%=RsSiteConfig("S_BaseHref")%>" size="50"/></td> </tr> <tr> <td> </td> <td><p>相对于网站根目录的的绝对路径</p> <p>例如:<br /> 系统安装在“http://www.deepteachycom/www/”目录下(www为安装目录),则这里应该修改为:“<span class="fRed">/www/</span>”</p></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="修改" /> <input type="reset" name="Reset" value="重置" /></td> </tr> </table> </form> <br /> </dd> </dl> <% RsSiteConfig.close Set RsSiteConfig=Nothing end if Conn.Close set conn=nothing %> </body> </html>